From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 Jul 1994 19:35:08 +0000 (+0000)
Subject: (sit_for): Return immediately if unread events exist.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90776
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=289a8c294150e05f2e21a3092e175fe8d3db4008;p=emacs.git

(sit_for): Return immediately if unread events exist.
---

diff --git a/src/dispnew.c b/src/dispnew.c
index 62163c008e2..0e89f037de8 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2253,6 +2253,10 @@ sit_for (sec, usec, reading, display)
 {
   Lisp_Object read_kbd;
 
+  if (CONSP (Vunread_command_events)
+      || unread_command_char != -1)
+    return Qnil;
+
   if (detect_input_pending ())
     return Qnil;